home *** CD-ROM | disk | FTP | other *** search
/ Teach Your Children: Road Construction Ahead / Teach Your Children: Road Construction Ahead.iso / pc / rca / road.dxr / 00048_demoButtonScript.ls < prev    next >
Encoding:
Text File  |  1996-07-17  |  565 b   |  19 lines
  1. global gSimObject, gTruckObject
  2.  
  3. on mouseDown
  4.   if the status of gTruckObject <> #animating then
  5.     if (the demoFlag of gSimObject <> 1) and (the startSimFlag of gSimObject = 1) then
  6.       if buttonHandler() = 1 then
  7.         startBuffering()
  8.         hideInvisibleButtons(gSimObject)
  9.         set the invisibleButtonList of gSimObject to [0, 0, 0, 0, 0, 0, 0, 0]
  10.         set the demoFlag of gSimObject to 1
  11.         puppetSimButtons()
  12.         set the mouseDownScript to "interruptDemo"
  13.         flushBuffer()
  14.         go(the frame)
  15.       end if
  16.     end if
  17.   end if
  18. end
  19.